www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\inc\ND_pinlun_toupian_post.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>



<%
dir_set="../"

%>

<!--#include file=conn.asp-->



<%



	Private Function getIP() 

		If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Or InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then 
			strIPAddr = Request.ServerVariables("REMOTE_ADDR") 
		ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then 
			strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
			Actforip = Request.ServerVariables("REMOTE_ADDR")
		ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then 
			strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
			Actforip = Request.ServerVariables("REMOTE_ADDR")
		Else 
			strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
			Actforip = Request.ServerVariables("REMOTE_ADDR")
		End If 
		getIP = Replace(Trim(Mid(strIPAddr, 1, 30)), "'", "")
	End Function



okdod=1

'每天最多能投多少票
maaanumm=D_u_toup_d_num

if session("newdsoft_plnn_ip")<>"" then


if cstr(session("newdsoft_plnn_ip"))=getIP() then

else
session("newdsoft_plnn_ip")=getIP()
session("newdsoft_plnn_num")=1
session("newdsoft_plnn_nn")=Now()
end if


if  DateDiff("s",session("newdsoft_plnn_nn"),Now())<3600 then

if session("newdsoft_plnn_num")="" then session("newdsoft_plnn_num")=1

session("newdsoft_plnn_num")= clng(session("newdsoft_plnn_num"))+1

if  clng(session("newdsoft_plnn_num"))>maaanumm then
okdod=0


end if




else

session("newdsoft_plnn_num")=1
session("newdsoft_plnn_nn")=Now()

end if
else

session("newdsoft_plnn_ip")=getIP()
session("newdsoft_plnn_nn")=Now()

session("newdsoft_plnn_num")=1
End if


session("newdsoft_plnn_ip")=getIP()



'-----------------------------------------------------防刷新
If Request.Cookies("norefreshaa")<>"" Then

If DateDiff("s",Request.Cookies("norefreshaa"),Now())<3600 Then

if Request.Cookies("norefreshaa_num")="" then Response.Cookies("norefreshaa_num")=1




if clng(Request.Cookies("norefreshaa_num"))>maaanumm then
okdod=0
else

Response.Cookies("norefreshaa_num")=clng(Request.Cookies("norefreshaa_num"))+1

end if


else


Response.Cookies("norefreshaa")=Now()

Response.Cookies("norefreshaa_num")=1

Response.Cookies("norefreshaa").Expires=DateAdd("n",180,now())

Response.Cookies("norefreshaa_num").Expires=DateAdd("n",180,now())

End IF
else

Response.Cookies("norefreshaa")=Now()

Response.Cookies("norefreshaa_num")=1

Response.Cookies("norefreshaa").Expires=DateAdd("n",180,now())

Response.Cookies("norefreshaa_num").Expires=DateAdd("n",180,now())

End if


'---------------------------------------------end--------防刷新


gggdct=0
bbbdct=0
if okdod=1 then



set rs44g=server.CreateObject("adodb.recordset")
rs44g.open "select * from [ND_pinlun] where id="&request("id")&"",conn,1,3
if not rs44g.eof then
if cstr(request("ww"))="1" then

gggdct=clng(rs44g("good_count"))+1
bbbdct=clng(rs44g("bad_count"))
rs44g("good_count")=clng(rs44g("good_count"))+1

end if
if cstr(request("ww"))="0" then

gggdct=clng(rs44g("good_count"))
bbbdct=clng(rs44g("bad_count"))+1
rs44g("bad_count")=clng(rs44g("bad_count"))+1
end if

rs44g.update()



end if





end if


response.ContentType="text/xml"

response.write "<?xml   version=""1.0""   encoding=""utf-8""?>"


response.write "<aaaa><affff><![CDATA["


response.write gggdct

response.write 	"]]></affff>"



response.write "<affffaa><![CDATA["


response.write bbbdct

response.write 	"]]></affffaa>"







response.write "<bffff>"&okdod




response.write 	"</bffff></aaaa>"







%>